home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DRIVES.SWG / 0085_Find if Floopy has been changed.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  450b  |  17 lines
  1. {
  2. > Anybody have a quick function that can tell if a diskette has been
  3. > changed? I was just writing a volume label to it then reading that back
  4. > until it changed, but my boss whined about all those disk accesses
  5. > being hard on the drive.
  6. }
  7.  
  8. function diskchange(drive:byte;):boolean;Assembler;
  9.  asm
  10.   Mov AH,16h;
  11.   mov DL, Byte Ptr Drive;
  12.   Int 13h;
  13.   Mov AL, AH;
  14.  End;
  15.  
  16. { Drive byte is in the range of 0 - 1 for A:- B: ect././. }
  17.